home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / DELPHI / CC32.ZIP / PROGRESS.CD < prev    next >
Encoding:
INI File  |  1996-04-19  |  5.8 KB  |  374 lines
  1. [MainInfo$]
  2. CCVer=2.1
  3. Compatible20=0
  4. Compatible21=1
  5. UnitName=Progress
  6. NewClassName=TProgress
  7. ParentClassName=TGraphicControl
  8. DefaultPalette=Samples
  9. CopyrightLine=
  10. FormMode=0
  11. FormFile=
  12.  
  13. [Units$]
  14. Lines=8
  15. L1=Classes
  16. L2=Controls
  17. L3=Forms
  18. L4=Graphics
  19. L5=Messages
  20. L6=SysUtils
  21. L7=WinProcs
  22. L8=WinTypes
  23.  
  24. [ItemList$]
  25. Create=Method
  26. Destroy=Method
  27. Paint=Method
  28. OnClick=ExistingEvent
  29. OnDblClick=ExistingEvent
  30. OnDragDrop=ExistingEvent
  31. OnDragOver=ExistingEvent
  32. OnEndDrag=ExistingEvent
  33. OnMouseDown=ExistingEvent
  34. OnMouseMove=ExistingEvent
  35. OnMouseUp=ExistingEvent
  36. PercentShaded=Property
  37. IsHorizontal=Property
  38. Width=Property
  39. Height=Property
  40.  
  41. [Global$]
  42. Descr=A progress bar control
  43. DefaultCode=1
  44.  
  45. [Code$]
  46. Lines=5
  47. L1=~~~~~{ Unit-wide declarations }
  48. L2=~~~~~{ type }
  49. L3=~~~~~{ . . . }
  50. L4=~~~~~{ var }
  51. L5=~~~~~{ . . . }
  52.  
  53. [Help$]
  54. Lines=0
  55.  
  56. [Create]
  57. Descr=
  58. DefaultCode=2
  59. Kind=2
  60. Header=Create(AOwner: TComponent)
  61. S=0
  62. Ov=1
  63. Mode=2
  64. WinMessage=
  65.  
  66. [CreateCode$]
  67. Lines=11
  68. L1=begin
  69. L2=~~~~~{ Call the Create method of the parent class }
  70. L3=~~~~~inherited Create(AOwner);
  71. L4=
  72. L5=~~~~~{ Set the initial values of variables and properties using }
  73. L6=~~~~~{ AutoInitialize procedure, generated by Component Create  }
  74. L7=~~~~~AutoInitialize;
  75. L8=
  76. L9=~~~~~{ Code to perform other tasks when the component is created }
  77. L10=
  78. L11=end;
  79.  
  80. [CreateHelp$]
  81. Lines=0
  82.  
  83. [Destroy]
  84. Descr=
  85. DefaultCode=4
  86. Kind=3
  87. Header=Destroy
  88. S=0
  89. Ov=1
  90. Mode=2
  91. WinMessage=
  92.  
  93. [DestroyCode$]
  94. Lines=13
  95. L1=begin
  96. L2=~~~~~{ AutoDestroy, which is generated by Component Create, frees any   }
  97. L3=~~~~~{ objects created by AutoInitialize.                               }
  98. L4=~~~~~AutoDestroy;
  99. L5=
  100. L6=~~~~~{ Here, free any other dynamic objects that the component methods  }
  101. L7=~~~~~{ created but have not yet freed.  Also perform any other clean-up }
  102. L8=~~~~~{ operations needed before the component is destroyed.             }
  103. L9=
  104. L10=~~~~~{ Last, free the component by calling the Destroy method of the    }
  105. L11=~~~~~{ parent class.                                                    }
  106. L12=~~~~~inherited Destroy;
  107. L13=end;
  108.  
  109. [DestroyHelp$]
  110. Lines=0
  111.  
  112. [Paint]
  113. Descr=
  114. DefaultCode=5
  115. Kind=0
  116. Header=Paint
  117. S=1
  118. Ov=1
  119. Mode=2
  120. WinMessage=
  121.  
  122. [PaintCode$]
  123. Lines=18
  124. L1=begin
  125. L2=~~~~~{ Determine orientation; store it so it will
  126. L3=~~~~~~~be available in the IsHorizontal property }
  127. L4=~~~~~FIsHorizontal := (Width >= Height);
  128. L5=
  129. L6=~~~~~{ Draw the framing rectangle }
  130. L7=~~~~~Canvas.Brush.Color := clWhite;
  131. L8=~~~~~Canvas.Pen.Width := 0;
  132. L9=~~~~~Canvas.Rectangle(0, 0, Width, Height);
  133. L10=
  134. L11=~~~~~{ Draw the progress bar within }
  135. L12=~~~~~Canvas.Brush.Color := clRed;
  136. L13=~~~~~Canvas.Pen.Width := 0;
  137. L14=~~~~~if FIsHorizontal then
  138. L15=~~~~~~~~~~Canvas.Rectangle(0, 0, Round(Width * (FPercentShaded/100)), Height)
  139. L16=~~~~~else
  140. L17=~~~~~~~~~~Canvas.Rectangle(0, 0, Width, Round(Height * (FPercentShaded/100)))
  141. L18=end;
  142.  
  143. [PaintHelp$]
  144. Lines=0
  145.  
  146. [OnClick]
  147. Descr=
  148. DefaultCode=7
  149. Ov=0
  150. P=0
  151. HandlerDecl=Click
  152.  
  153. [OnClickCode$]
  154. Lines=0
  155.  
  156. [OnClickHelp$]
  157. Lines=0
  158.  
  159. [OnDblClick]
  160. Descr=
  161. DefaultCode=8
  162. Ov=0
  163. P=0
  164. HandlerDecl=DblClick
  165.  
  166. [OnDblClickCode$]
  167. Lines=11
  168. L1=begin
  169. L2=~~~~~{ Code to execute before activating double-click
  170. L3=~~~~~~~behavior of component's parent class }
  171. L4=
  172. L5=~~~~~{ Activate double-click behavior of parent }
  173. L6=~~~~~inherited DblClick;
  174. L7=
  175. L8=~~~~~{ Code to execute after double-click behavior
  176. L9=~~~~~~~of parent }
  177. L10=
  178. L11=end;
  179.  
  180. [OnDblClickHelp$]
  181. Lines=0
  182.  
  183. [OnDragDrop]
  184. Descr=
  185. DefaultCode=13
  186. Ov=0
  187. P=0
  188. HandlerDecl=DragDrop(DragObject: TObject; X, Y: Integer)
  189.  
  190. [OnDragDropCode$]
  191. Lines=0
  192.  
  193. [OnDragDropHelp$]
  194. Lines=0
  195.  
  196. [OnDragOver]
  197. Descr=
  198. DefaultCode=0
  199. Ov=0
  200. P=0
  201. HandlerDecl=
  202.  
  203. [OnDragOverCode$]
  204. Lines=0
  205.  
  206. [OnDragOverHelp$]
  207. Lines=0
  208.  
  209. [OnEndDrag]
  210. Descr=
  211. DefaultCode=13
  212. Ov=0
  213. P=0
  214. HandlerDecl=
  215.  
  216. [OnEndDragCode$]
  217. Lines=0
  218.  
  219. [OnEndDragHelp$]
  220. Lines=0
  221.  
  222. [OnMouseDown]
  223. Descr=
  224. DefaultCode=13
  225. Ov=0
  226. P=0
  227. HandlerDecl=MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer)
  228.  
  229. [OnMouseDownCode$]
  230. Lines=0
  231.  
  232. [OnMouseDownHelp$]
  233. Lines=0
  234.  
  235. [OnMouseMove]
  236. Descr=
  237. DefaultCode=13
  238. Ov=0
  239. P=0
  240. HandlerDecl=MouseMove(Shift: TShiftState; X, Y: Integer)
  241.  
  242. [OnMouseMoveCode$]
  243. Lines=0
  244.  
  245. [OnMouseMoveHelp$]
  246. Lines=0
  247.  
  248. [OnMouseUp]
  249. Descr=
  250. DefaultCode=13
  251. Ov=0
  252. P=0
  253. HandlerDecl=MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer)
  254.  
  255. [OnMouseUpCode$]
  256. Lines=0
  257.  
  258. [OnMouseUpHelp$]
  259. Lines=0
  260.  
  261. [PercentShaded]
  262. Descr=Percentage of the progress bar shaded
  263. DefaultCode=6
  264. IN=0
  265. RO=0
  266. PropType=Integer
  267. PropDefault=0
  268. Quote=0
  269. RM=0
  270. WM=1
  271. Hide=0
  272. DefEdit=1
  273. All=0
  274. EC=
  275. EU=
  276. Link=
  277.  
  278. [PercentShadedCode$]
  279. Lines=10
  280. L1=begin
  281. L2=~~~~~FPercentShaded := Value;
  282. L3=~~~~~if FPercentShaded < 0 then
  283. L4=~~~~~~~~~~FPercentShaded := 0
  284. L5=~~~~~else
  285. L6=~~~~~~~~~~if FPercentShaded > 100 then
  286. L7=~~~~~~~~~~~~~~~FPercentShaded := 100;
  287. L8=~~~~~{ Update the display of the component }
  288. L9=~~~~~Invalidate
  289. L10=end;
  290.  
  291. [PercentShadedReadCode$]
  292. Lines=3
  293. L1=begin
  294. L2=~~~~~GetPercentShaded := FPercentShaded
  295. L3=end;
  296.  
  297. [PercentShadedHelp$]
  298. Lines=0
  299.  
  300. [IsHorizontal]
  301. Descr=Orientation of the progress bar (read-only)
  302. DefaultCode=6
  303. IN=0
  304. RO=1
  305. PropType=Boolean
  306. PropDefault=
  307. Quote=0
  308. RM=0
  309. WM=0
  310. Hide=0
  311. DefEdit=1
  312. All=0
  313. EC=
  314. EU=
  315. Link=
  316.  
  317. [IsHorizontalCode$]
  318. Lines=0
  319.  
  320. [IsHorizontalReadCode$]
  321. Lines=3
  322. L1=begin
  323. L2=~~~~~GetIsHorizontal := FIsHorizontal
  324. L3=end;
  325.  
  326. [IsHorizontalHelp$]
  327. Lines=0
  328.  
  329. [Width]
  330. Descr=
  331. DefaultCode=6
  332. IN=1
  333. RO=0
  334. PropType=Integer
  335. PropDefault=90
  336. Quote=0
  337. RM=0
  338. WM=0
  339. Hide=0
  340. DefEdit=1
  341. All=0
  342. EC=
  343. EU=
  344. Link=
  345.  
  346. [WidthCode$]
  347. Lines=0
  348.  
  349. [WidthHelp$]
  350. Lines=0
  351.  
  352. [Height]
  353. Descr=
  354. DefaultCode=6
  355. IN=1
  356. RO=0
  357. PropType=Integer
  358. PropDefault=20
  359. Quote=0
  360. RM=0
  361. WM=0
  362. Hide=0
  363. DefEdit=1
  364. All=0
  365. EC=
  366. EU=
  367. Link=
  368.  
  369. [HeightCode$]
  370. Lines=0
  371.  
  372. [HeightHelp$]
  373. Lines=0
  374.